<f:view xmlns:h="http://java.sun.com/jsf/html"
        xmlns:ui="http://java.sun.com/jsf/facelets"
        xmlns:fn="http://java.sun.com/jsp/jstl/functions"
        xmlns:g="http://code.google.com/p/ada-ado/generator"
        xmlns:f="http://java.sun.com/jsf/core"
        file="regtests/#{projectName}-#{moduleName}-tests.adb">-----------------------------------------------------------------------
--  #{projectName}-#{moduleName}-tests -- Tests for #{moduleName}
<ui:include src="../licenses/license-ada.xhtml"/>
-----------------------------------------------------------------------
#{''}
with Util.Tests;
with Util.Test_Caller;

package body #{fn:capitalize(projectName)}.#{fn:capitalize(moduleName)}.Tests is
#{''}
   package Caller is new Util.Test_Caller (Test, "#{moduleName}");
#{''}
   procedure Add_Tests (Suite : in Util.Tests.Access_Test_Suite) is
   begin
      Caller.Add_Test (Suite, "Test #{projectName}.#{moduleName}.Foo",
                       Test_Foo'Access);
   end Add_Tests;
#{''}
   procedure Test_Foo (T : in out Test) is
   begin
      T.Assert (True, "Foo is ok");
   end Test_Foo;
#{''}
end #{fn:capitalize(projectName)}.#{fn:capitalize(moduleName)}.Tests;
</f:view>
